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UM EDITOR 
MUSICAL ( 3). 


Complete a listagem do seu editor 
musical e entregue-se ao prazer 

de compor e executar melodias. 

Às instruções dadas a seguir mostram 
como utilizar cada função do programa. 


Apresentamos aqui a ultima parte do 
editor musical. Uma vez adicionada ao 
restante do programa, você poderá se 
dedicar à composição e execução de pe- 
ças musicais. 

O programa foi feito de modo a ob- 
ter o máximo de cada máquina, em ter- 
mos de efeitos Sonoros. Como os recur- 
sos das diferentes linhas de micros va- 
riam muito entre si, as versões são bem 
distintas, merecendo, cada qual, uma 
explicação. Em alguns casos, as instru- 
ções parecerão bem complicadas. Mas, 
seja como for, não há melhor maneira 
de aprender a usar o editor do que 
sentar-se diante do micro, carregar o 
programa completo e tentar entender 
um comando de cada vez. 





O menu do programa do computador 
Spectrum oferece sete opções. Selecio- 
ne a opção 1, que transforma o teclado 
do micro num piano. 

A disposição das notas é igual à que 
vimos no artigo da página 721..0 dó 
mais grave corresponde à tecla Q: o dó 
médio, à tecla 1, e o dó mais agudo, à 
tecla B. O usuário deve determinar se irá 
acrescentar notas à melodia anterior, ou 
iniciar uma nova. Como nada foi com- 
posto ainda, escolha 'S' para começar. 
Defina também a duração de cada no- 
ta, usando <SYMBOL> <SHIFT > 


+s N 
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INSTRUÇÕES 

MENU 

EXECUÇÃO DA MELODIA 
EDIÇÃO 
GRAVAÇÃO E LEITURA 





seguido de um número de la 5  (semi- 
colcheia, colcheia, seminima, minima, 
semibreve, respectivamente — quanto 
maior o número, mais demorada é a no- 
ta). Pode-se estabelecer a duração de ca- 
da nota antes de digitá-la e, também, 
corrigi-la após digitar a melodia comple- 
ta, selecionando a opção 4. 


O programa emite os sons à medida 


que as teclas são pressionadas, armaze- 
nando as notas musicais corresponden- 
tes na memória. Depois, pode-se execu- 
tar a melodia completa sempre que se 
desejar através da opção 3. Para modi- 
ficar o andamento da melodia, usa-se 
um número entre | e 15 — quanto maior 




















o número, mais rápido o andamento. A 
opção 2 possibilita a digitação das no- 
tas por meio de um código simples. As 
doze notas possiveis — € (dó), € & (dó 
sustenido), D (ré), até o B (si) — são nu- 
meradas de 0 a 11, e a pausa recebe o 
código —4, A oitava da melodia é es- 
pecificada por um valor compreendido 
entre | e 7, e o número que indica a du- 
ração de cada nota corresponde à sua 
duração teórica. Assim, uma semicol- 
cheia vale |; uma colcheia, 2; uma se- 
mínima, 4; uma mínima, 8 e uma semi- 
breve, 16. Essas durações valem, igual- 
mente, para a pausa. 

O código é muito fácil de usar. Por 
exemplo, a nota dó, segunda oitava, se- 
micolcheia, tem o código 1024; a nota 
si, quarta oitava, semibreve, é 11416. 
Para pausas, — 404 é o intervalo de uma 
seminima. Não se esqueça de que cada 
código tem dois dígitos; assim, uma col- 
cheia vale 02, e não 2. 

Após digitar algumas notas, pressio- 


ne < RETURNO para voltar ao menu; 


selecione a opção 3 para tocar a melo- 
dia introduzida até o momento, 

Se você quiser alterar, apagar ou 
acrescentar algumas notas, selecione a 
opção 4 do menu. Inicialmente, pressio- 
ne D, para selecionar as notas que se- 
rão modificadas. Depois, entre o núme- 
ro das notas e tecle E para editá-las. Pa- 
ra mudar uma nota, digite seu numero, 
< RETURN > e seu código. Para inse- 
rir uma nota, aperte X e entre seu nú- 
mero. Caso queira apagar tudo e reini- 
ciar o trabalho, selecione a opção 5. 

Quando estiver satisfeito com a me- 
lodia, grave-a através da opção 6. 

A opção 7 permite recuperar uma 
música da fita cassete. 


wa MRS 


Ao executar O programa, um menu 
com nove opções será exibido na tela. 
Comece com a opção 3, para tocar mu- 
sica diretamente no teclado. | 

As notas estão dispostas em duas fi- 
leiras, como vimos no artigo da página 
721. O dó menor corresponde à tecla Q; 
o dó médio, à 1, e o dó maior, à V. À 
barra de espaço indica uma pausa com 
a duração desejada. O computador re- 
gistrará cada nota que você tocar, mas 
não em tempo real — assim, não impor- 
ta que você demore mais ou menos pa- 
ra teclar uma nota. Também não have- 
rá problema se algum erro for cometi- 
do: é fácil corrigir as notas depois. 

Se você quiser mudar uma oitava an- 
tes de executar uma determinada nota, 
recorra às teclas com setas pará cima e 
para baixo. Para alterar a duração da 





nota, pressione as teclas com setas para 
a esquerda e a direita. A oitava e a du- 
ração correntes estarão impressas no to- 
po da tela. Enquanto você toca, as no- 
tas vão sendo exibidas com a duração 
e oitava respectivas. 

Depois de experimentar essa manei- 
ra de entrar com as notas, selecione a 
opção 4 (as notas que você tocou per- 
manecem na memória). Ela permite a 
entrada das notas por um processo que 
em certos casos pode ser bem útil. Pri- 
meiro, digite o nome da nota, de “'a' 
até “f””, para as notas naturais; A, €, 
D, F, G, para acidentes (bemóis são co- 
locados como sustenidos; logo, Bb= 
A etc.) e “p”, para uma pausa. Em 
seguida, tre a oitava — um número 
de la6— ea duração da nota — letras 
w,h, q,e,8, correspondentes a semibre- 
ve, mínima, semínima, colcheia e semi- 
colcheia. Para uma nota pontuada, sim- 
plesmente adicione um ponto no final. 
Por exemplo: AZe. significa nota A (lá 
sustenido), oitava 2, colcheia pontuada; 
c3w significa nota € (dó), oitava 3, se- 
mibreve. 

Entre as notas na ordem que quiser 
e ouça a música quando desejar, selecio- 
nando a opção 7 do menu principal. 

Outras opções do menu são a mudan- 
ça no tempo de execução e a mudança 
geral de oitava (com efeito retroativo) 
— para executá-las, basta que teclemos 
um novo valor. O tempo de execução 
varia de O a 255 e indica a velocidade 
com que as notas são tocadas. Utilizan- 
do as opções Superior e Inferior, você 
pode subir ou descer a oitava de qual- 
quer grupo de notas. 

Para editar a melodia, selecione a op- 
ção 6. Com ela, você lista as notas e 
identifica as que quer alterar. E possi- 
vel escolher entre apagar, inserir, alte- 
rar ou continuar. Experimente cada uma 
dessas opções. Para apagar notas, en- 
tre o número inicial e o número de no- 
tas que deseja eliminar. Para inserir, di- 
gite o número da nota que está antes do 
ponto onde se iniciará a inserção e en- 
tre uma nota por vez. Para alterar uma 
nota, tecle seu número e entre o novo 
conteúdo. 

Finalmente, quando estiver satisfei- 
to com a melodia, armazene-a em fita 
com a opção 2 e recupere-a quando qui- 
ser com a opção 1. 


1 


Ao iniciar a execução do programa, 
um menu com nove opções será exibi- 
do na tela. Comece com a opção 3 para 
tocar música diretamente no teclado. 
Teremos três oitavas disponiveis. 


Aa E 


As notas estão dispostas no teclado 
em duas fileiras: Q corresponde ao dó 
da oitava mais baixa; I, ao dó da oitava 
média, e V, ao dó da oitava mais alta. 
A nota A & (A ou lá sustenido) não po- 
de ser obtida com a tecla “ ”, já que es- 
ta não gera nenhum código ASCH que 
identifique O seu pressionamento. As- 
sim, A foi atribuída à tecla **["”, dei- 
xando uma pequena descontinuidade no 
teclado. A barra de espaço indica uma 
pausa com a duração especificada. 

O computador registrará a nota que 
você tocar, mas não imediatamente, de- 
vido ao tempo necessário para o proces- 
samento das instruções. Portanto, não 
tem nenhuma importância que você de- 
more mais ou menos para teclar uma 
nota. Também não haverá problema se 
algum erro for cometido: será fácil cor- 
rigir as notas mais tarde. 

Caso você queira mudar a oitava an- 
tes de executar uma nota, use as teclas 
com setas para cima e para baixo. Para 
alterar a duração da nota, pressione as 
teclas com setas para a esquerda e a di- 
reita. A oitava mais baixa disponível no 
teclado estará impressa no topo da te- 
la, bem como a duração das notas, que 
vão sendo exibidas à medida que você 
as toca. Para obter uma duração pon- 
tuada, selecione as teclas <INS> e 
<DEL>; para apagar a última nota 
executada, a tecla <CLS>. 

Tendo experimentado essa forma de 
composição, use a tecla < ENTER> e 
volte ao menu principal. Selecione a op- 
ção 4 (as notas que você tocou perma- 
necem na memória). Ela permite a en- 
trada das notas por um processo que, 
em certos casos, pode ser muito útil. 
Primeiro, digite o nome da nota, de 
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“a” até “'f'”, para as notas naturais: A, 
C,D,F,G, para acidentes (bemóis são 
colocados como sustenidos; logo, Bb = 
A & etc.), e “p'”, para uma pausa. Em 
seguida, entre a oitava — um núme- 
ro del a&8 — e a duração da nota — 
letras w, h, q,€,8s,t, u, corresponden- 
tes à semibreve, minima, seminima, col- 
cheia, semicolcheia, fusa e semifusa, Pa- 
ra uma nota pontuada, adicione um 
ponto no final. Por exemplo: c8t. sig- 
nifica € (dó), oitava 8, fusa pontua- 
da; Adu significa A (lá sustenido), oita- 
va 4, semifusa. 

Entre as notas na ordem que quiser 
e ouça a música quando desejar, selecio- 
nando a opção 7 do menu principal. 

Outras opções que temos são a mu- 
dança no tempo de execução das notas 
e a mudança geral da oitava. Esta últi- 
ma tem efeito retroativo, alterando a oi- 
tava de notas na memória. Para ambas 
as opções, basta teclar o novo valor. O 
tempo de execução varia de 32 a 255 e 
indica a velocidade com que as notas são 
tocadas. Com as opções Superior e In- 
ferior você pode subir ou descer a oita- 
va de um grupo de notas. 

Para editar a melodia, selecione a 
opção 6. Com ela, você lista as notas 
e verifica o que deseja alterar. E possi- 
vel escolher entre apagar, inserir, alte- 
rar ou continuar. Experimente cada 
uma dessas opções. Para apagar alpu- 
mas notas, entre o número da primeira 































nota e o número de notas que deseja eli- 
minar. Para inserir, digite o número da 
nota imediatamente anterior ao ponto 
onde pretende iniciar a inserção e entre 
uma nota de cada. Para alterar uma no- 
ta, tecle seu número e entre o novo 
conteúdo. 

Finalmente, quando estiver satisfei- 
to com a melodia, armazene-a em fita 
com a opção 2 e recupere-a quando qui- 
ser com a opção 1. 


4452 INPUT "Entre com numero da 


nota - ":NN 

q454 IF (NN<1) OR NN>ct THEN G 
OTO 4000 
4460 PRINT PRINT "Re-entrando 
nota “;NN 


44/70 PRINT 
4480 INPUT 
a "NS 


PRINT 


"Entre com nova nota 


4490 IF NS="" THEN GOTO 4300 
4500 FOR 1=1 TO LEN (NS): IF (N 
S(1)<"0” OR N$S(1)>"9") AND (NS( 
1)<>"-="7 THEN GOTO 4000 

4510 LET N=VAL (NS) 

4520 IF INT (N/1000)>11 THEN G. 


OTO 4000 
4540 TE N<O 
4540 LET 
=M*LOO 
48560 LET O=M-INT 
QO<S1 00 02/ THEN 
4560 LET M=TNT 
s6 
4570 
N)=M 
4580 GOTO 4000 
4590 LET M=INT 
=0-(N-M*100) 
4600 IF M<>-4 
46140 GOTO 4570 
4/00 CLS 

4/05 PRINT "Entre com numero da 
nota ANTES"*"da nova nota a se 


THEN 
M=INT (N/100): 


GOTO 4590 
LET D=N 
IMZAD) FIO: TF 
GOTO 4000 
(M/L0)+(0-1)*412- 
LET E(SSNN-L)=D: 


LET TLZAN 


(INZAVO)+L: LET D 


THEN GOTO 4000 


r inserida.""'*"(() para sair)" 

4/40 INPUT 18 

47/35 1F 18-00 THEN GOTO 4000 

4/40 IF i82ct+] THEN GOTO 4700 

da/45 CLS 

A!ãO GOSUB 25h00 

4755 PRINT 

4/60 INPUT "Entre com nova Nota 
= TaINS 

4/65 IF LEN (N$)=0 THEN GOTO 4 
'00 

47270 FOR 1=1 TO LEN (NS): TF (N 














TRANSCRIÇÃO DE PARTITURAS 

Nem todos conseguem executar 
música simplesmente sentando-se 
| diante do micro e usando o editor mu- 
sical como um processador de textos. 
Embora a opção de playback (execução 
da melodia entrada com o auxílio do 
editor) ajude bastante, nosso programa 
não permite representar na tela uma 
partitura com os detalhes de uma apli- 
cação mais profissional. 

Assim, a solução é recorrer a parti- 
| turas de músicas de fácil execução pa- 
ra violão, flauta; em órgão eletrônico ou 
piano, e transcrevê-las usando o nos- 
so editor musical, 




















BtL)STO” 
1] €<2"=") 
4/72 LET 
qg/74 IF 
OTOo 4700 
4/76 TF N<QO THEN GoTo 
4778 LET M=INT (N/100): 
=MZ100 
4782 LET O=M-INT (M/10)*10: TF 
O<l OR 027 THEN GOTO 4700 
4784 LET M=INT (M/10)+(0-1)*12- 
36 
4786 FOR i=ct TO às STEP -1: LE 
Tt t(i2x(a+)))=t(ZtIi): LET tlza(i 
+1)-1l)=t(2Z*%-1): NEXT à 
4788 LET t(2*%is-1)=D: LET t(2*) 
g)=M 
4790 LET ct=ct+1: GOTO 4000 
4/92 LET M=INT (N/Z1400)+1: LET D 
=0- (N-M*100) 
4794 IF M<>-4 THEN 
4/96 GOTO 4786 
4800 CLS 
4805 PRINT 
nota a ser 
a Bair”' 
4830 INPUT de 
4835 TF de=0 THEN GOTO 4000 


OR N$(1)>"9") 


AND 
THEN GOTO 4700 


(NS I 


N=VAL (NS) 
INT (N/1000)211 TREN G 


4/94 


LET D=N 


GOTO 4700 


"Entre com numero da 
apagada." '* (0 par 


4840 TF de>ct THEN GOTO 4800 
4845 FOR i=de TO ct: LET t(2%1) 
=L(gA(i+l)): LET Lt(Z%i-1)=L(2*( 
1+1)-1): NEXT à 

4850 LET ct=ct-) 

4855 GOTO 4000 

4900 DATA 3,0,-11,=-9,0,-6,-4,-2 


















50,1 

4910 DATA 12,9,8,-8,10,0,13,0,1 
5,0 

4920 DATA (,16,14,2,4,-12,-7,6, 
rec Nori 

4930 DATA 11,-10,7,7-3,5 


000 CLS 
5010 INPUT "DIGITE NOME DO ARQU 
IVO ":FS: LET T(maxnoLes+1)=ct: 


SAVE F5S DATA T(): RETURN 
6000 INPUT "DIGITE NOME DO ARQU 
“IVO ";FS: LOAD FS DATA T(): LET 
ct=T(MAXNOTES+1) : RETURN 


Ex 


1440 FOR I=ST TO NN 

1450 PRINT+AC,USING"HEE "il; 
1460 AS=NS(I):B$S=LEFTS(AS,1) 
1470 IF BS>="a"AND B5<="qg"THEN 
C$=CHAS (ASC(BS)-32)+” "ELSE CS= 
BS+"4” 

1480 IF B$="p” THEN C$="- * 
1490 PRINT+HC,CS; 

1500 IF BS<>"p"THEN PRINT$4C,” O 
ITAVA+";MIDS(AS,2, 1) ELSE PRINT 
EC, STRINGS (11,32); 

1510 PRINTEAC,” ";LES(INSTR(AIS 
MIDS (AS, 3,1))); 

1520 IF MIDS(AS,4,1)="."THEN PR 
INT4C,"." ELSE PRINTHC 

1530 LP=LP+):1F LP=13AND C=0 TH 
ENLP=0:GOSUB940:CLS 

1540 NEXT:GOSUB940 

1550 PRINTE44B, STRINGS (63,42);: 
PRINTE480," PRESSIONE QUALQIIER T 
ECLA/MENU" ; :EXEC 36038: RETURN 
1560 CLS 

1570 PRINTEB, "MODO TOCAR NOTAS" 
1580 IF NN=0 THEN RETURN 


1590 PRINT: INPUT"INICIO NA NOTA 
(ENTER=1)";ST 

1600 IF ST<=0 THEN ST=1 ELSE IF 
ST>NN THEN ST=NN 

1610 PRINT"TEMPO=";TE 

1620 PLAY"V3L;T"+STAS(TE) 

1630 EXEC 46481:FOR I=ST TO NN 
1640 PRINTE256,"TOCANDO NOTA NU 

MERO" ;I 

1650 AS=NS(1) 

1660 BS=LEFTS(AS,1): [IF B$="p"TH 

EN 1690 ELSE IF BS>="a" AND BS< 

="g"THEN PS=CHAS(ASC(BS)-J2)+"; 

" ELSE P5=BS+"4+" 

1670 PLAY"O"+MIDS(AS,2,1)+"L"+L 

?2S (INSTER (R1S5,MIDS(AS,3,1)))+MID 

S(AS,4,1)+PS 

1680 GOTO 1700 

1690 PLAY"P"+L25 (INSTR(AR1S,MIDS 
(AS,3,1))) 

1700 NEXTI 

1710 RETURN 

1720 CLS 

1730 IF NN=0 THEN RETURN 

1740 PRINTAS,"MUDANCA GERAL DE 

OITAVA” 

1750 PRINTE64,"OITAVA SUPERIOR 

OU INFERIOR(S/I)" 

1760 POKE 282,245: INPUT AS 

1770 IF AS="" THEN RETURN 

1780 IF AS<>"sS” AND AS<>"I"THEN 

1750 

1790 PRINT"INICIO EM (ENTER=TUDO 
)":: INPUT ST 

1800 IF ST<=0OTHEN ST=1:EN=NN:GO 

T0O1840 
1810 INPUT 
J";EN 

1820 IF EN=0 OR 


"FINAL  EM(ENTER=FIM 
EN>NN THEN EN=N 


N 
1830 IF STT>EN THEN ST=EN 
1840 FOR I=ITO NN 


1850 BS=MIDS(NS(I),2,1) 

1860 IF AS="I"THEN CS=CHAS(ASC( 
B$)-1):IF C$="0"THEN CS="5" 
1870 IF A$="S"THEN CS=CHRS (ASC( 
BS)J+1):IF C$="6"THEN C5="1” 
1880 MIDS(NS(1),2,1)=€5 

1890 NEXT:RETURBN 

1900 CLS 

1910 PRINTE4,"CARREGAR MUSICA D 
A FITA" 

1920 PRINT: PRINT"ESTA OPCAO IRA 
APAGAR QUALQUER MUSI 
CA NA MEMORIA -VOCE QUER C 
ONTINUAR (S/N)”; 

1930 POKE 282,255: INPUT AS 

1940 IF AS<>"5" THEN RETUAN 
1950 PRINT:LINE INPUT"NOMEAROQ:” 
AS 
1960 
1970 
1980 
1990 


OPEN "Iº,4-1,AS 
NN=VAL (N$) : TE=VAL (TS) 

FOR I=1l TO NN 

2000 INPUT&-1,NSCI) 

2010 NEXT:CLOSE+-1: RETURN 

2020 CLS 

2030 IF NN=0 THEN RETURN 

2040 PRINTES,"SALVAR MUSICA EM 
FITA” 

2050 PRINT:LINE INPUT"NOMEARO:” 
:AS 

2060 OPEN "0",4-1,AS 

2070 PRINT4-1,STAS (NN),STRS (TE) 
2080 FOR I=1TO NN 

2090 PRINT&-1,NSCI) 

2100 NEXT:CLOSE4-1:RETURN 


Io 


1610 FOR I=SL TO EL 
1620 AS=NS(I) :BS=LEFTS(AS,1) 








1950 INPUT AS:IF AS="" THEN RET 
URN 


1960 IF AS<>"S8”" AND AS<>"I"THEN 


1940 
1970 LOCATE 4,9: INPUT"INICIO EM 
(ENTER= 1 /";ST 


1980 IF ST<=0 THEN ST=1:EN=NN 
1990 LOCATE 4,10:INPUT"FINAL E 
M (ENTER=FIM )";EN 

2000 IF EN=0 OR EN>NN THEN EN=N 
N 


2010 IF ST>EN THEN ST=EN 

2020 FOR I=ST TO EN 

2030 B$=MIDS (NS (1),2,1) 

2040 IF AS="I" THEN CS=CHBS (ASC 
1630 IF BS>="a"AND BS<="q"THEN 
C5S=CHAS (ASC(BS)-32)+" "ELSE C 
S=B$+"4 " 

1640 IF B$="p” THEN CS="- Já 
1650 CS=" "+cs 


1660 IF BS<>"p"THEN C5S=CS+"OITA 
VA 4"+MIDS (AS,2, 1) ELSE CU5S=C5+ST 
RINGS (9,32) 
1670 CS=C5+" 
DS (AS,3,.1))) 
16B0 IF MIDS(AS,4,1)="."THEN CS 
=C58+" . "ELSE CS=CS+" " 

1690 IF C=1 THEN LOCATE 5,LP+5: 
PRINT USING"4tt”;I;: PRINT CSELS 
E LPRINT USING"444";I;:LPRINT € 
5 

1700 IF AT<>20 THEN RETURN 

1710 LP=LP+1L:IF LP=13ANDC=1 THE 
N LP=0 :GOSUB 1010:CLS 

1720 NEXT:GOSUB 1010 

1730 LOCATE 2, 1B:PRINTCAPERTE Q 
UALQUER TECLA-MENU PRINCIPAL” 
1740 QS=INKEYS:IF 0QS="" THEN 17 
40 

1750 RETURN 

1760 CLS:COLOR 1, 10:LOCATE 8,1: 
PRINT"MODO -TOCAR NOTAS" 

1770 ST=1l:IF NN=0 THEN RETURN 
17B0 LOCATE 4,5: INPUT"INICIO NA 
NOTA (ENTER=1)";ST 

17/90 IF S5ST<=0 THEN ST=1 ELSE IF 
ST>NN THEN ST=NN 

1800 LOCATE 4,7:PRINT"TEMPO DE 
EXECUÇÃO="; TE 

1810 PLAY"VIST"+STRS(TE) 

1820 FOR I=ST TO NN 

1830 LOCATE 6,12:PRINT"TOCANDO 
NOTA:";1I 

1840 AS=NS(I) 

1850 BS=LEFTS(AS,1):IF B$="p"TH 
EN 1880 ELSE IF BS$>="a"ANDBS<=" 
q"THEN PS=CHAS (ASC(BS)-32)+" TE 
LSE PS=B$+" 4" 

1860 PLAY"O"+MIDS(AS,2,1)+"L"+L 
25 (INSTR (RIS,MIDS(AS,3,1)))+PS+ 

MIDS (AS,4,1) 

1870 GOTO 1890 

1880 PLAY"R"+L2S (INSTR(RIS,MIDS 
1890 NEXT I 

1900 RETURN 

1910 CLS:COLOR 1,3:5T=1:EN=NN 
1920 IF NN=0 THEN RETURN 

1930 LOCATE 7,1:PRINT"MUDANÇA G 

ERAL DE OITAVA” 

1940 LOCATE 0,6:PRINTCOITAVA SU 

PERIOR OU INFERIOR(S/1)"; 


"+LES (INSTR(B1S,MI 


(BS)-1):1IF C$="70" THEN Cg="1º 
2050 IF A$="S”" THEN C5S=CHAS(ASC 
(BS) +) ) IF C$="9" THEN CS=]B” 
2060 MIDS(NS(1),2,1)=C5 

2070 NEXT: RETURN 

2080 CLS:COLOR 15,6 

2090 LOCATE 5,1: PRINT"CARREGAR 
MUSICA DO GRAVADOR” ; 

2100 LOCATEL2Z, 3: PRINTCATENÇÃO! | 


2110 LOCATE 4,4:PRINT" ESTA OP 
ÇÃO IRÁ APAGAR Q 

UALQUER MÚSICA NA MEMORIA” 

2120 LOCATE 4,7: INPUT'VOCÊ QUER 
CONTINUAR? (5/N)";AS 

2130 IF AS<>"S" THEN RETUAN 
2140 LOCATE 4,10:PRINT"aperte L 

OAD no gravador” 


2150 LOCATE 4,12:LINE INPUT"NOM 
EARQ:":AS 

2160 OPEN "CAS:AS" FOR INPUT AS 
tl 


2170 INPUT 4&1.NN.TE 

2180 FOR I= 1 TO NN 

2190 INPUT 41,NS(T) 

2200 NEXT:CLOSE41: RETURN 

2210 CLS:COLOR 15,6 

2220 LOCATE B,1:PRINTTSALVAR MU 
SICA EM FITA” 

2230 LOCATE 4,6:PRINT"aperte SA 
VE no gravador” 

2240 LOCATE 4,B:LINE INPUT"NOME 
ARQ:":;AS 
2250 OPEN 
St1 

2260 PRINT 41,NN,TE 

2270 FOR I= 1 TO NN 

2280 PRINT 41,NS(T) 

2290 NEXT:CLOSE 41:RETUERBN 


"CAS:AS”" FOR OUTPUT A 

































































SPRITES EM LOGO 
MSX 


Em artigos anteriores sobre a lingua- 
gem LOGO, vimos como desenhar na 
tela com a tartaruga, um cursor gráfico 
que pode ser ativado ou desativado por 
meio de comandos primitivos. 

Como você deve ter notado, a elabo- 
ração de uma figura mais complexa de- 
mora um tempo razoavelmente longo, 
o que torna impossível, por exemplo, 
desenvolvermos um videogame com ani- 
mação gráfica — tarefa simples em BA- 
SIC ou outra linguagem imperativa. Al- 
gumas versões do LOGO, porém, per- 
mitem a geração e utilização de sprites. 

Nos artigos das páginas 188 e 808, vi- 
mos como trabalhar com sprites no 
MSX, única máquina nacional que pos- 
sui esse recurso implementado em hard- 
ware. O Spectrum, o TRS-Color, o Ap- 
ple e o TK-2000 têm comandos especiais 
para definir blocos gráficos (UDG) e 
usá-los em animações rápidas. Mas es- 
ses micros não dispõem de sprites “'ver- 
dadeiros” — ou seja, não contam com 
controle de hardware (pelo Video Dis- 
play Processor) que garanta a movimen- 


tação dos sprites na tela em diferentes 
planos, destacando-os ou ocultando-os 
conforme os critérios que determinam 
a prioridade de uns sobre os outros. 
Aproveitando os recursos do MSX, 
o HotLOGO, versão lançada no Brasil 
pela Sharp para computadores dessa li- 
nha, inclui entre suas propriedades a 
programação de sprites verdadeiros. 
Algumas versões de LOGO para o 
Apple e o TRS-Color também fazem 
uso de sprites. No exterior, a linha Com- 
modore 64 tem poderosos instrumentos 
para a programação de sprites multico- 
loridos. Mas, em todas essas máquinas, 
os sprites não são controlados por hard- 
ware, como nos micros da linha MSX. 


SPRITES PRÉ-PROGRAMADOS 





Existem doistipos de sprites em Hot- 
LOGO: os pré-programados e os pro- 
gramáveis pelo usuário. Cada um deles 
recebe um número inteiro, entre O e 59. 

Os sprites pré-programados, numera- 
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Algumas versões mais poderosas do 
LOGO permitem a programação de 
sprites. Seguindo as instruções deste 
artigo, os usuários do MSX poderão gerar 
e controlar quarenta figuras diferentes. 


dos de 0 a 9 e de 36 a 59, são matrizes 
de 16 x 16 pixels contendo figuras que 
o usuário não pode mudar. O acesso a 
eles é dado pelo comando MUDEFIG, 
seguido do número do sprite. 


As figuras de O a 9 são: 


O circulo 5 foguete 

| coração 6 tijolo 

2 gato 7 helicóptero 
3 cachorro 8 locomotiva 
4 caminhão 9 vagão 


Os sprites numerados de 36 a 59 re- 
presentam tartarugas em diversos ângu- 
los e posições. Todos aceitam os mes- 
mos comandos e podem ser movimen- 
tados simultaneamente na tela. Os spri- 
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tes fixos (O a 9), porém, não mudam de 
orientação, como ocorre com as tarta- 
rugas ao encontrarem um comando PA- 
RADIREITA ou PARAESQUERDA. 


SPRITES PROGRAMÁVEIS 


Os sprites numerados de 10 a 35 po- 
dem ser programados pelo usuário. 

O primitivo utilizado para desenhar 
um sprite novo na tela é muito simples: 
chama-se EDFIG (edita figura), e deve 
indicar o número do sprite a ser criado 
ou modificado. Quando digitamos esse 
comando, a tela fica em branco e apa- 
rece um cursor piscando no canto supe- 
nor esquerdo. Podemos movimentá-lo 
em qualquer direção, por meio das te- 
clas de controle. Para acender um pixel 
(bit correspondente, na matriz do spri- 
te), pressiona-se a tecla de espaço no 
ponto onde estiver o cursor. Para apa- 
ga-lo, pressiona-se a mesma tecla sobre 
esse ponto. 

Se você quiser sobrepor uma grade à 
tela em branco, a fim de visualizar me- 
lhor o padrão do desenho, pressione as 
teclas <CTRL> e <K>. 

Depois de criar ou modificar a figu- 
ra a seu gosto, tecle <ESC>: ela será 
armazenada na memória, sob o núme- 
ro indicado no comando EDFIG. Se não 
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quiser guardar a figura que está editan- 
do, tecle <CTRL> e <STOP>. 


ANIMAÇÃO GRÁFICA 





Na produção de animações gráficas 
com sprites, usam-se os comandos PARA- 
FRENTE, PARATRAS, PARADIREITA 
e PARAESQUERDA para mover a figu- 
ra de um lado a outro. Por exemplo: 
RG 
MUDEFIG 7 
USENADA 
PARAFRENTE 20 
ESPERE 300 
PARADIREITA 90 
PARAFRENTE 90 
ESPERE 300 
PARATRAS 30 
PARADIREITA 90 PARAFRENTE 50 


O helicóptero (sprite pré-programado 
7) parecerá levantar vôo, esperar um 
momento, voar para a direita, subir 
mais um pouco e, por fim, aterrissar. 

Para simular certas ações — como 
um homem correndo —, podemos usar 
dois ou mais sprites parecidos, mostran- 
do a figura em diferentes estágios do 
movimento. O comando MUDEFIG se 
encarregará de alterná-los, enquanto se 
provoca um deslocamento na tela, 
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Como funciona um sprite? 

A característica fundamental de um 
sprite é a sua velocidade. Aliás, é exa- 
tamente esta a origem do nome: spri- 
te, em inglês, designa um pequeno | 
duende que, segundo a lenda, corre co- 
mo o vento, | 

Outra característica do sprite é a sua 
| capacidade de interpenetração, ou se- 
ja, se duas figuras estiverem ocupan- 
| do a mesma área de vídeo, aquela que 
| for de menor prioridade dará a impres- 
são de estar passando "por trás” da 
| outra. 

Teoricamente, pode-se reproduzir 
uma “familia” de sprites através de 
software, mas eles não serão suficien- 
temente velozes. Um sprite baseado 
em hardware, no entanto, consegue ter 
velocidade, pois, como é o caso dos 
micros da linha MSX, o vídeo dispõe de 
| Um rapidissimo processador, que cui- 
da de todos os detalhes do funciona- 
mento das figuras, sem onerar o pro- 
cessador central. 
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COMPRESSÃO Aa que nd sb como compémi. 
EE e descomprimir textos, ponha o | 


programa para funcionar e observe | 


DE TEXTOS (3) seu desempenho no desenvolvimento 
| de um jogo de aventura. 








| Nos artigos das páginas 1332 e 1404, 
e MR analisamos diversos algoritmos destina- 
dos à compressão de textos. Não expli- , 
camos, porém, como utilizar esses pro- 
gramas no contexto de um jogo de aven- 
a tura. Como você deve se lembrar, nos- | 
ça 0 so objetivo inicial era reduzir o espa- | 
ço de memória ocupado por uma aven- 
tura desse tipo, permitindo a progra- | 
mação de um jogo mais complexo e 
extenso. 
- Neste artigo, examinaremos as técni- 
e cas de compressão e descompressão de 
textos aplicadas ao desenvolvimento de 















































e a] o O um jogo de aventura. Usaremos o algo- 
-pº PESE aÇÃO E e o ritmo que demonstrou a maior eficiên- 
EVA E id a E / Y cia de compressão, com a máxima sim- 
E ça PRE Ap E A plicidade de programação: a técnica de 

| GT o | = ane A compressão de dois códigos por byte, 


Eita dr ME E PP cd a ' nã À 
E OSC j baseada na frequência dos caracteres no 
aa texto. Como vimos, esse algoritmo po- 
de ser programado em BASIC sem difi- 


culdades, e é razoavelmente rápido. 


DESENVOLVIMENTO DE AVENTURAS. 





Em uma série de artigos de Progra- 
mação de Jogos (páginas 208, 226, 270, 
306 e 394), tratamos das principais tec- 
nicas de desenvolvimento de aventuras 
em BASIC. Com um número mínimo de 
alterações no programa então forneci- 
do, você poderá empregar as rotinas de 
compressão e descompressão de textos, 
economizando uma quantidade razoá- 
vel de memória. 

Se você não armazenou o programa 
mencionado, digite-o agora, acompa- 
nhando as listagens dadas nos sucessi- | 
vos artigos. Entretanto, cada vez que en- , 
contrar uma mensagem tal como: 


345 PRINT "TIJOLOS SAO MUITO 
PESADOS, SEU BRAÇO DEVE ESTAR 
DOENDO . * 


"PURE. 






Ndejhy npiga 
VB as 
a i 








substitua-a por outra mais curta, ape- 
nas para lembrar-se do que deve ser de- 
finido ou impresso ali. Por exemplo: 


345 PRINT "TIJOLO PESADO” 


Procedendo assim, você poderá tes- 
tar se Oo programa completo de aventu- 
ras está funcionando bem, sem gastar 
muito tempo digitando mensagens ex- 
tensas, que depois serão retiradas do 
programa principal. 

Quais são as mensagens e frases que 
admitem compressão? Em um jogo de 
aventuras, utilizam-se doze tipos prin- 
cipais de texto alfanumérico: 


- nomes de lugares (por exemplo: 
HALL DE ENTRADA); 

- mensagens de localização (VOCE ES- 
TA NO HALL DE ENTRADA): 

- verbos (NADAR); 

- nomes de objetos (REVOLVER):; 

- mensagens de identificação de objeto 
(VOCÊ PEGOU UM REVOLVER); 

- mensagens de advertência (ESTA 
MUITO ESCURO PARA VER AS 
SAIDAS); ' 

- mensagens de erro (ISTO NÃO PODE 
SER ESVAZIADO); 

- consequências de ações do jogador ou 
do programa (exemplo: AS BOLI- 
NHAS SE ESPALHARAM PELO 
CHAO); 

- perguntas ao jogador (QUER JOGAR 
NOVAMENTE?); 

- frases comuns, em conjunto com 


E TOSDE MENSAGEM 

| E TEXTO 
E COMO ADAPTAR SEU 
JOGO DE AVENTURA 
EI A LISTA-MESTRE 


outras mensagens (VOCÊ PEGOU); 
mensagens de ajuda (VERIFIQUE SE 
ALGUMA PORTA ESTA ABERTA); 
instruções do jogo. 


Os jogos de aventuras dificilmente 
contêm todos esses tipos de texto. De- 
pois de verificar quais deles estão pre- 
sentes, você deverá decidir se vale a pe- 
na comprimi-los. Listas de nomes cur- 
tos (objetos e locais, por exemplo) não 
devem ser comprimidas: o número de 
bytes economizado possivelmente não 
compensará os bytes de código de pro- 
grama gastos para acessar o texto com- 
primido. Todos os outros tipos de tex- 
to (sobretudo as instruções) podem e de- 
vem ser comprimidos, desde que tenham 
duas ou mais palavras: isso levará a um 
ganho real de espaço. 

Para localizar as mensagens que se- 
rão comprimidas, o melhor é tirar uma 
listagem em impressora e marcar todos 
os pontos em que elas ocorrem. Em se- 
guida, faça uma lista das mensagens, in- 
dicando os números das linhas do pro- 
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HEM 
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grama onde elas ocorrem. Agrupe as 
mensagens segundo o seu tipo: primei- 
ro as mensagens de localização, depois 
as de identificação de objetos encontra- 
dos etc. Deixe as instruções para o fim. 
Isso facilitará a reprogramação do jo- 
go de aventura e tornará menos cansa- 
tiva a “caçada” aos erros cometidos. 





A LISTA-MESTRE 


Tendo todos esses dados, digite no 
computador um programa em BASIC 
constituído apenas de linhas DATA, 
com as mensagens que serão comprimi- 
das. Cada mensagem deve ficar em uma 
linha DATA separada. 

Preparamos essa listagem para o jo- 
go de aventura publicado em INPUT. 
Ela serve para todos os micros, e come- 
ça na linha 5000. Em algumas máqui- 
nas é possível digitar o texto em letras 
minúsculas e a acentuação correta, mas 
não o faça. Isso é importante, pois, co- 
mo vimos nos artigos anteriores, empre- 
garemos um código reduzido de repre- 
sentação de caracteres, baseado em sua 















É possível comprimir sons e melodias | 


em jogos de aventuras? 

Existem técnicas bastante eficientes 
para a compressão de melodias, mas 
os algoritmos usados são extremamen- 
te especializados. Uma técnica muito 
simples pode ser empregada, entretan- 

| to, pelos usuários dos computadores 
TAS-Color e MSX: ela consiste em 

| comprimir a sequência de comandos 

| usados para programar uma melodia 
como se fosse um texto (variável 

| string), e depois descomprimi-la no mo- 
mento de tocar a melodia. 


frequência no texto — diferente, portan- 
to, do ASCII. Como a eficiência de 
compressão só é obtida se usarmos um 
máximo de 30-35 caracteres nesse códi- 
go, trabalharemos apenas com as letras 
maiúsculas e poucos caracteres de pon- 
tuação., 


+ TITE 


5000 DATA "VOCE ESTA DO LADO DE 
FORA DE UM GRANDE PREDIO” 

5010 DATA "VOCÊ ESTA A BEIRA DE 
UM GRANDE RIO” 

5020 DATA "VOCE ESTA NUMA FLORE 

STA PETRIFICADA” 

5030 DATA "VOCE ESTA NUMA SALA 
EMPOEIRADA” 

5040 DATA "VOCE ESTA NUMA SALA 

ESCURA” 

5050 DATA "VOCE ESTA EM UM ATAL 

HO ENLAMEADO” 

5060 DATA "VOCE ESTA NA ENTRADA 
DA CIDADE OCULTA” 

5070 DATA "VOCE ESTA NO HALL DE 
ENTRADA” 
5080 DATA 
5090 DATA 
5100 DATA 
LOUCAS” 
5110 DATA 
TRONO” 
5120 DATA 
RA VER AS SAIDAS” 

5130 DATA "COMO VOCE NAO TEM NA 

DA QUE POSSA SER CONFISCADO, EL 


ESTA NO PATIO” 
ESTA NO JARDIM" 
ESTA NO GUARDA- 


“VOCE 
"VOCÊ 
"VOCE 


"VOCE ESTA NA SALA DO 


"ESTA MUITO ESCURO PA 


E O PRENDE NUMA MASMORRA IMUNDA 


5140 DATA "DESCULPE, VOCE NÃO P 
ODE SEGUIR NESSA DIRECAO” 

5150 DATA "VOCE NÃO PODE LARGAR 
O QUE NÃO TEM” 

5160 DATA "DESCULPE, NAO POSSO 
AJUDAR AGORA” 

5170 DATA "TIJOLOS SAO MUITO PE 
SADOS, SEU BRACO DEVE ESTAR DOE 

NDO”" 

5180 DATA "JA ESTA ACESA” 


5190 DATA "ISTO NÃO PODE SER ES 
VAZIADO” 

5200 DATA "AS BOLINHAS SE ESPAL 
HARAM PELO CHAO” 

5210 DATA "NADAR AONDE ?7* 

5220 DATA "QUE VERGONHA, VOCE 5 
E AFOGOU |!” 

5230 DATA "VOCE SE MOLHOU TODO” 


5240 DATA "VOCE ACHOU UM REVOLV 
ER" 

5250 DATA 
5260 DATA 
ISTO" 
5270 DATA "VOCE CAIU DENTRO DO 
VASO E FOI EMBORA COM A DESCARG 
A!” 


"NADA ACONTECE” 
"VOCÊ NAO PODE PUXAR 


5280 DATA "PARABENS ! VOCE COMP 

LETOU A TAREFA !” 

5290 DATA "FIM DO PROGRAMA DE A 

VENTURAS” 

5300 DATA "QUER JOGAR NOVAMENTE 
(S/N) ?” 

5310 DATA “HA UM SACO DE BOLAS 

DE GUDE AQUI” 

5320 DATA "TEM UM TIJOLO NO CHA 

Oo” 


5330 DATA "HA UMA CORRENTE PEND 
URADA SOBRE O TRONO" 


5340 DATA "TEM UM REVOLVER NO € 
HAO” 
5350 DATA "UM OLHO CRAVEJADO DE 


BRILHANTES ESTA NO CHAO” 

5360 DATA "VOCE ESTA DIANTE DE 

UMA LAMPADA” 

5370 DATA "DE REPENTE SURGE UM 

COLETOR DE IMPOSTOS” 

5380 DATA "EU NAO SEI COMO” 

5390 DATA "VOCE PEGOU” 

5400 DATA "NAO ESTA AQUI” 

5405 DATA "PRESSIONE QUALQUER T 

ECLA PARA CONTINUAR...” 

5410 DATA "INSTRUCOES”" 

5420 DATA "DEVIDO A UM COLAPSO 

FINANCEIRO, VOCE TEVE QUE DEIXA 

R O PAIS. SEUS PROBLEMAS VAO TE 

RMINAR QUANDO VOCE ENCONTRAR O 

LEGENDARIO OLHO CRAVEJADO DE BR 

ILHANTES DE UM TOTEM INCA.” 

5430 DATA "DEPOIS DE TRAZE-LO, 

VOCE TERA QUE ENCONTRAR À SAIDA 
CUIDADO COM O COLETOR DE IMPO 

STOS 1!” 

5440 DATA 


Mod 


Nesse programa, foram codificados 
estes tipos de texto (com suas linhas): 


5000 a 5110: mensagens de localização; 
$120 a 5260: mensagens de advertência e 
erro; 

5270 a 5370: consequências de ações; 
5380 a 5405: frases comuns e comandos; 
5410 a 5440; instruções do jogo. 


Observe que só excluímos as listas de 
objetos, verbos e locais. As linhas com 
instruções são as mais longas (cuidado 
para não ultrapassar 255 caracteres), 
pois isso facilita seu posterior uso. 

Depois de digitar o programa, arma- 
zene-o em fita ou disco, 


CODIFICAÇÃO 





A técnica de compressão estatística 
utiliza um código baseado na lista dos 
caracteres mais frequentes no texto. Ca- 
da código ocupa um nibble (ou seja, 
quatro bits), e dois nibbles são compri- 
midos em um byte. Os quinze caracte- 
res mais comuns têm códigos de um nib- 
ble (um número de 1 a 15). Os quinze 
caracteres seguintes, na ordem de fre- 
quência, têm códigos de dois nibbles 
(um 0, seguido do código de 1 a 15); os 
próximos quinze têm códigos de três 
nibbles (dois 0, seguidos de um código 
dela 15)e assim por diante. Em geral, 
os quinze caracteres mais frequentes 
correspondem a 80% ou mais de todo 
o texto, e é por isso que se obtém uma 
compressão em torno dos 50%. 

Se usarmos uma lista dos caracteres 
mais frequentes em textos em português, 
conseguiremos uma boa eficiência de 
compressão, mas não a ideal. Para al- 
cançar o nível máximo de eficiência, de- 
vemos usar a ordenação de caracteres 
encontrada no próprio texto. Se você 
quiscr determiná-la, siga estas etapas: 


- carregue no computador as linhas DA- 
TA com todas as mensagens; 

- acrescente as linhas do programa de 
contagem de letras fornecido no pri- 
meiro artigo da série (página 1332); 

- rode o programa e anote o resultado. 


Para poupar trabalho ao leitor, pre- 
paramos a lista de frequência de carac- 
teres no texto da aventura de INPUT 
(artigo da página 208 e seguintes). 
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O primeiro conjunto de quinze carac- 
teres (KS$(1)) é formado por: branco, 
A,E,0,S,R,D,C,N,T,U,LM,V e L. Os 
demais caracteres fazem parte, portan- 
to, dos conjuntos seguintes. 

De posse dessa lista, podemos escre- 
ver um pequeno programa para testar 
se a compressão e a descompressão es- 
tão funcionando com os textos de exem- 
plo. Carregue novamente na memória 
somente as linhas DATA anteriores, e 
adicione este programa: 


TITE 


10 DIM F$(100),K5S(3) 
20 KS(1)=" AEOSADCNTUIMVL”:KS (2 


)="PHGQBEJ,.!-2XZ(":K$(3)-")/” 
180 PRINT “CODIFICANDO..." 
190 1I=0:K=1 


200 READ L$S:IF LS$="*" THEN GOTO 
230 


210 GOSUB 710:I=1+1:FS(I)=XS 
215 PRINT I;LS 

220 GOTO 200 

230 NL=I 

240 ERR ER “NUMERO DA MENS 
AGEM “:T 

242 IF I=Q THEN GOTO 300 

245 IF I<l OR I2NL THEN PRINT * 


*x* NAO EXISTE”":GOTO 240 
250 LS=FS(I):GOSUB 870 
290 GOTO 240 

300 END 


Para os computadores das linhas 
TRS-80 e TRS-Color, adicione a linha: 


5 CLEAR 2000 


10 DIM £5(100),kS(3,15) 
20 LET kS(1)=" AEOSRDCNTUIMVL”: 


<a = 


LET k5S(2)="PHGQBFJ,.!-?7XZ(":LET 
kS(3)=")/" 

180 PRINT "CODIFICANDO.. 

190 LET 1=0:LET k=l 
200 READ LS:IF L$="*" 
230 

210 GOSUB 710:LET 
1)=x5 

215 PRINT 1:LS 
220 GOTO 200 
230 LET nL=I 
240 PRINT:INPUT 

AGEM ";i 

242 IF 1=0 THEN GOTO 300 

245 IF à<l OR i>nL THEN PRINT ” 

*wxx NAO EXISTE":GOTO 240 

250 LET L$S=fS(i):GOSUB 870 

290 GOTO 240 

300 STOP 


THEN GOTO 


i=1+1:LET £S( 


“NUMERO DA MENS 


As sub-rotinas que começam nas li- 
nhas 710 (codificação) e 870 (decodifi- 
cação) podem ser copiadas integralmen- 
te do programa listado no primeiro ar- 
tigo, para os computadores respectivos. 

A linha 20 do programa define os três 
conjuntos de códigos de caracteres. O 
laço formado pelas linhas k80 a 220 
comprime o texto, lendo-o linha por li- 
nha em DATA e colocando o resultado 
no conjunto F$ (uma mensagem por li- 
nha). A sub-rotina de codificação é cha- 
mada em 210, 

Finalmente, as linhas 240 a 290 soli- 
citam ao usuário o número da mensa- 
gem que deseja imprimir. Digite O, se 
quiser interromper o programa. 





ARMAZENAGEM DO RESULTADO 


TT 


Vamos agora desenvolver dois pro- 
gramas separadamente. O primeiro fun- 
ciona como o programa anterior, servin- 
do para comprimir todas as mensagens 
e instruções. O resultado, gravado em 
fita ou disco, em um arquivo seglencial, 
será depois carregado pelo programa de 
jogo propriamente dito. Assim, a roti- 
na que executa a compressão não preci- 
sa ser incluída no programa do jogo. 
Neste se introduzem apenas as rotinas 
responsáveis pelo carregamento, des- 
compressão e impressão. 

O segundo programa compõe-se de 
duas rotinas que podem ser acrescenta- 
das ao jogo de aventura. Uma delas lê 
o arquivo sequencial com o texto com- 


ACENTUANDO TEXTOS 
COMPRIMIDOS 

Para os perfeccionistas da progra- 
mação, é frustrante não poder usar ca- 
racteres acentuados em um texto que 
será comprimido pelo algoritmo esta- 

| tístico discutido neste artigo. Mas, em 
geral, a falta de acentos não dificulta 
| a leitura do texto. 

Entre as poucas exceções destaca- 
se a palavra é, que, sem acento, pode 
impedir a compreensão do texto. Para 
evitar esse problema sem aumentar o 
número de caracteres do conjunto uti- 
lizado, recorra ao apóstrofo: coloque- 
o logo após a letra que deve ter acen- 
to agudo, sem deixar espaço — o re- 
sultado será satisfatório. 





primido; a outra efetua a descompres- 
são quando solicitado. Explicaremos 
mais adiante como usá-las. 

No programa-exemplo, o texto com- 
primido foi armazenado em um conjun- 
to F$. Portanto, bastaria escrever uma 
sub-rotina de gravação desse conjunto 
(com texto comprimido) e, depois, uma 
sub-rotina para lê-lo, de volta à memoó- 
ria, no programa de jogo. 

Parece tudo muito simples, mas há 
um senão: trabalhando com conjuntos 
alfanuméricos, como o F$, no progra- 
ma que utilizará o texto comprimido, 
ocuparemos um espaço de memória, 
que ultrapassará, em tamanho, o exigi- 
do pelo texto original, descomprimido. 

Devido ao modo como o BASIC tra- 
ta cadeias de caracteres (string), é difi- 
cil evitar esse problema. Usaremos, as- 
sim, um conjunto numérico T'% para 
armazenar os bytes comprimidos. Os 
dois bytes gerados pela compressão de 
cada quatro nibbles serão armazenados 
em um conjunto de To, pois uma va- 
riável inteira (em todos os computado- 
res, exceto o Spectrum) ocupa dois 
bytes, e pode armazenar um número en- 
tre — 32768 e 32767. O tamanho de T% 
sera igual ao número de caracteres com- 
primidos (no exemplo anterior, 447 bytes). 

Para localizar o início de cada men- 
sagem nessa sequência continua de có- 
digos, temos que criar um segundo con- 
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junto A%, que conterá os apontadores, 
ou índices de T%. O comprimento de 
Ao será igual ao número de mensagens 
mais 1 (no nosso exemplo, 46). 

Se dimensionamos T% e Ao em seu 
limite, obteremos o máximo de econo- 
mia de espaço de memória. 

A rotina de codificação é a seguinte 
(o programa de teste vem depois): 


700 REM - ROTINA DE CODIFICACÃO 
710 N=0:LN=0O 

720 FOR J=1 TO LEN(L$S) 

730 CS=MIDS (LS,J,1) 

740 P=INSTR(KS(K),CS) 

750 N=N+1:C%(N)=P:LN=N 

755 IF N<4 THEN GOTO 775 


760 TI(NC)=(Ct(1) OR (16*C%(2) 
/)J+256*(Ct(3) OR (16*Ct(4)))- 


32768 

765 NC=NC+1:N=0 

775 IF P=Q0 THEN K=K+1:GOTO 740 
776 K=1 

780 NEXT J 

785 IF LN=4 THEN RETURN 

790 FOR J=LN+1 TO 4:Ct(J)=1 


792 NEXT J 

795 T&(NC)=(Ct(1l) OR (16*C%(Z) 
))+256*(Ct(3) OR (16*C%(4)))- 
32768 

796 NC=NC+1: RETURN 


LIS] 


Para executar a rotina nos micros 
compatíveis com o Apple, acrescente: 
















740 FOR P=1 TO 15:IF CS=MIDS(KS 
(K),P,1) THEN GOTO 750 
745 NEXT P:P=0 


A sub-rotina é igual à apresentada no 
artigo anterior, com uma diferença: os 
nibbles são armazenados de quatro em 
quatro, no conjunto C%, e comprimi- 
dos pelas linhas 760 e 795. O valor 32768 
é diminuído do byte assim comprimi- 
do, para que seu conteúdo fique entre 
— 32768 e 32767. 

Segue-se o programa principal: 


TITE 


10 DIM KS(3),Tt(450),A? (46) 

15 DIM Nt(2),C&(4) 

20 KS(1)=" AEOSRDCNTUIMVL” :KS (2 
2)="PHGOBFJ,.!-2XZ(":KS(3)=")/” 
180 PRINT "CODIFICANDO...”" 

190 1I=0:;K=1:NC=1 

200 READ LS:IF L$="*" THEN GOTO 
230 

205 I=I+1:At?(I)=NC 

210 GOSUB 710 

215 PRINT I;At(I);LS 

220 GOTO 200 


230 NL=I:A&(I+1)=NC 

300 INPUT "GRAVAR (S/N) ":;RS 
310 IF R$="S”" THEN GOSUB 400 
320 END 


Para os computadores das linhas 











TRS-80 e TRS-Color, acrescente a linha: 


5 CLEAR 2000 


A sub-rotina para o armazenamento 
em arquivo sequencial começa na linha 
400, e grava os conjuntos T (com os có- 
digos comprimidos) e A (apontadores): 


400 
410 
420 


REM - ROTINA DE GRAVACAO 
INPUT "NOME DO ARQUIVO” ;NS 
OPEN "0", 4&-1,NS 

430 PRINT4&-1,NL,NC 

440 FOR I=1l TO NL+1:PRINT+-1,A% 
(I) :NEKT I 

450 FOR I=l TO NC:PRINT+4-L,T&I 
J:NEXT I 

460 CLOSE(4-1:RETURN 


400 
410 


REM - ROTINA 
INPUT "GRAVADOR PRONTO 
430 PRINT+A-1,NL,NC 

440 FOR I=1l TO NL+1:PRINT&-1,A? 
(TI) :NEXT 1 

450 FOR I=1 TO NC:PRINT4&-1,TÊ(I 
J:NEXT I 

460 RETURN 


nt 


400 REM - ROTINA DE GRAVACAO 
410 INPUT “NOME DO ARQUIVO" ;NS 
420 OPEN "CAS:"+NS FOR OUTPUT 
AS 41 

430 PRINT4I,NL,NC 


DE GRAVACAO 
";NS 


440 FOR I=1 TO NL+1:PRINT+AIL,A& 
(I):NEXT I 

450 FOR I=1 TO NC:PRINTAI,TI(I 
)J:NEXT 1 

460 CLOSE41:RETURN 


400 REM - ROTINA DE GRAVACAO 
410 NT (1)=NL:Nt(2)=NC 
420 INPUT "GRAVADOR PRONTO ";NS 
430 STORE N&:STORE AZ:STORE T& 
460 RETURN 

Para executar o programa completo 
de compressão, acrescente ao final as li- 
nhas DATA. O computador executará 
toda a tarefa automaticamente. A me- 
dida que codifica as linhas, o programa 
as exibe na tela, perguntando se o usuá- 
rio deseja gravar o resultado. Se a res- 
posta for 8, os conjuntos A e T serão 
armazenados para uso posterior pela ro- 
tina de decodificação. 


No Spectrum não há tratamento se- 
parado para arquivos sequenciais em fi- 
ta, a não ser que se disponha de um Mi- 
crodrive (não existente no Brasil). Por 
isso, O programa para essa máquina 
apresenta uma abordagem diferente dos 
demais micros, 













rt RC 
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Inicialmente, carregue o jogo de 
aventura completo e acrescente as linhas 
abaixo (renumere-as para compatibilizar 
com o programa do jogo, se isto se fi- 
zer necessário): 


10 DIM k$(3,15),t(450) ,a(46) 

15 DIM c(4) 

20 LET kS(1)=" AEOSRDCNTUIMUL”: 
LET kKS(2)="PHGQBFJ,.!-2XZ(":LET 
K$(3)=")74" 

190 LET 1=0:LET k=1:LET nes) 
200 PRINT "ENTRE A MENSAGEM ";: 
LINE INPUT L$:1IF L$="*º THEN GO 

To 230 


205 LET 1=1+1:LET a(i)=ne 
210 GOSUB 710 

215 PRINT i;a(i);LS 

220 GOTO 200 

230 LET nl=):LET a(1+1)=nc 
240 STOP 


O programa principal pedirá ao usuá- 
rio para entrar as mensagens pelo tecla- 
do, uma de cada vez. Quando chegar à 
última, responda com um asterisco, pa- 
ra assinalar o fim. 

Usaremos um conjunto numérico T 
para armazenar os bytes comprimidos. 
Os dois bytes gerados pela compressão 
de cada quatro nibbles serão armazena- 
dos em um elemento de T. O tamanho 
desse conjunto será igual ao número de 
caracteres comprimidos (no nosso exem- 
plo, 447 bytes). Para localizar o início 
de cada mensagem nessa sequência con- 
tinua de códigos, temos que criar um se- 
gundo conjunto, A, que conterá os 
apontadores, ou índices de T. O com- 
primento de A será igual ao número de 
mensagens mais 1 (no exemplo, 46). 

Se dimensionarmos Te A no limite, 
obteremos o máximo de economia de 
memória. Acrescente a rotina de codi- 
ficação: 


700 REM - ROTINA DE CODIFICACAO 
710 LET n=0:LET Ln=0 
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720 FOR 3=1 TO LEN LS 

730 LET cS=LS(3) 

740 FOR p=1 TO 15:IF cS=kS(k,p) 
THEN GOTO 750 

745 NEXT p:LET p=0 

750 LET n=n+1):LET c(n)=P:LET L 
n=n 

755 IF n<4 THEN GOTO 775 

760 LET t(nc)=(c(l) OR (16*c 
(2)))+256*(c(3) OR (16*%c(4))) 
-32768 


765 LET nc=nc+1:LET n=0 

775 IF p=0 THEN LET k=k+1:GOTO 
740 

776 LET k=1 

780 NEXT 3 

785 IF Ln=4 THEN RETURN 

790 FOR 39=Ln+1l TO 4:c())=1:NEX 
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T 3 

795 LET t(nc)=(c(l) OR (16*%c 
(2)))+256*(c(3) OR (16*c(4))) 
-32768 

796 LET nc=nc+1: RETURN 


A sub-rotina é igual à apresentada no 
artigo anterior, com uma diferença: os 
nibbles são armazenados de quatro em 
quatro, no conjunto C%, e comprimi- 
dos pelas linhas 760 ou 795. O valor 
32768 é diminuído do byte assim com- 
primido, para que seu conteúdo fique 
entre — 32768 e 32767. 

Depois de acrescentar o programa 
principal e a rotina de decodificação ao 
jogo da aventura, execute-o. Após en- 
trar todas as mensagens, grave O progra- 
ma e os dados juntos, em fita. 


DESCOMPRESSÃO 


A descompressão do texto é feita por 





“nma segunda rotina, que deve ser acres- 


centada ao programa de aventura: 


860 REM - DECODIFICACAO 

870 N=0:K=1 

875 FOR J=At(I) TO At(I+1)-1 
880 C2=INT((Tt(J)+327681)/256: 
Cl=(Tt?(J)+32768)-C2*256 

890 C$(1)=Cl AND 15:C%(2)=(C1 
AND 240)/16 


895 Ct(3)=C2 AND 15:Ct(4)=(CZ 

AND 240)/16 

900 FOR L=1 TO 4 

910 IF C2(L)=0 THEN K=K+1:GOTO 
930 

920 PRINT MIDS(KS(K),C&(L),1);: 

K=1 

930 NEXT L:NEXT J 

950 PRINT:RETURN 


Complete o programa com a rotina 
de carregamento dos conjuntos AeT, 
com os dados no arquivo sequencial: 


500 REM - ROTINA DE LEITURA 

510 INPUT "NOME DO ARQUIVO" ;NS 

520 OPEN "I",4-1,NS 

530 INPUT&-1,NL,NC 

540 FOR I=1 TO NL+1: INPUT&-1,A% 

(1) :NEXT 1 | 
550 FOR I=1l TO NC: INPUT&-1,TECI 
J:NEKT 1 

560 CLOSE4-1:RETURN 


500 REM - ROTINA DE LEITURA 


510 INPUT "GRAVADOR PRONTO ";NS$S 
530 INPUT4-1L,NL,NC 

s40 FOR I=1l TO NL+1: INPUTt&-1,A% 
(I) :NEXT 1 

550 FOR I=1 TO NC:INPUT&-1,TÊCI 
J:NEXT I 

560 RETURN 


as nm 














io 


500 REM - ROTINA DE LEITURA 

510 INPUT "NOME DO ARQUIVO” ;NS 
520 OPEN "CAS:"+NS FOR INPUT AS 
tl 

530 INPUT&I,NL,NC 

540 FOR I=1l TO NL+1: INPUT41,A% 
(1) :NEXT 1 

550 FOR I=1 TO NC: INPUT4I, TII 
J:NEXT 1 

560 CLOSE41: RETURN 


Dat 


500 REM - ROTINA DE LEITURA 

510 INPUT "GRAVADOR PRONTO ";NS 
530 RECALL N$:RECALL At:RECALL 
T2:NL=N$ (1) :NC=Nt(Z) 

560 RETURN 


Apresentamos a seguir um pequeno 
programa de teste. Com ele, você terá 
oportunidade de verificar o funciona- 
mento conjunto das rotinas de leitura e 
de descompressão: 


TTCIRIA 


10 DIM K$(3),T%(450),At(46) 

20 K$(1)=" AEOSRDCNTUIMVL" :K$5(2 
)=" PHGQBFJ,.!-2XZ(":K5(3)=")/" 
30 GOSUB 510 

240 PRINT:INPUT "NUMERO DA MENS 
AGEM “;I 

242 IF I=0 THEN GOTO 300 

245 IF I<l OR I>NL THEN PRINT ” 
*** NÃO EXISTE":GOTO 240 

250 GOSUB 870 

290 GOTO 240 

300 END 


As linhas 10, 20 e 30 desse programa 
devem ser colocadas no início do pro- 
grama do jogo. Elas dimensionam os 
conjuntos de trabalho do descompres- 
sor de textos e chamam a rotina 510, Es- 
ta carrega os conjuntos Te A, a partir 
do texto comprimido que está armaze- 
nado na memória auxiliar. 








As linhas 240 a 300 simplesmente im- 
primem a mensagem solicitada pelo 
Usuário e mostram como a sub-rotina 
S70 (de decodificação) deve ser usada 
dentro do programa de aventura. 


COMO ADAPTAR O PROGRAMA 





Carregue de novo o programa de 
aventura e localize as linhas que contêm 
mensagens incluidas na lista de compres- 
são. Suponhamos que você encontre a 
seguinte linha (abreviada, como reco- 
mendamos no começo deste artigo): 


345 PRINT "TIJOLO PESADO” 
Substitua-a por: 
345 LET 1=17:GOSUB 870 


Essa linha iguala o apontador E ao 
numero da mensagem na lista compri- 
mida, e passa o controle para a sub- 
rotina de descompressão. Esta localiza 
o início e o fim da mensagem, no con- 
junto de apontadores A, e imprime na 
tela o texto descomprimido. 

Repita esse procedimento com todas 
as linhas onde ocorrem mensagens, € 
grave o resultado final, Não se esqueça 
de adicionar as linhas 10, 20 e 30 do nos- 
so exemplo (renumeradas, se for o caso). 


Para o Spectrum, o esquema é um 
pouco diferente. Carregue o programa 
de aventura que gravou em fita, junta- 
mente com o programa de compressão 
e o texto comprimido. Apague as linhas 
190 a 796 e modifique cada uma das li- 
nhas com mensagens, como foi explica- 
do antes. Em seguida, acrescente: 


B60 REM - DECODIFICACAO 

B70 LET n=0:LET k=1 

875 FOR j=a(i) TO a(i+1)-1 

B80 LET c2=INT((t(J)+32768)/256 
:ILET cl=(t(9)+32768)-c2*256 
B90 LET c(l)J=cl AND 15:LET c(2) 
= (cl AND 240)/16 

B95 LET c/3)=c2 AND 15:LET ct(d4) 
=(c2 AND 240)/16 

900 FOR L=1 TO 4 

910 IF c(L)=0 THEN LET k=k+1:G 
OTO 930 

920 PRINT KS(K,c(L));:LET k=1 
930 NEXT L:NEXT 3 

950 PRINT:RETUAN 


- Armazene a nova versão em fita. Pa- 
ra rodar o programa completo, use um 
GOTO para a primeira linha do progra- 
ma de aventura (não a linha 10 do pro- 
grama de codificação). Nunca empregue 
o comando RUN, pois você perderá to- 
do o texto das mensagens. 











Para quem está familiarizado com 
apenas uma linguagem de programação, 
o aprendizado de outra pode apresen- 
tar maior ou menor dificuldade — o que 
depende, sobretudo, do grau de seme- 
lhança entre as duas linguagens. 

Se a estrutura e sintaxe de ambas fo- 
rem parecidas, basta fazer uma tradu- 
ção: o novo “vocabulário” é aprendi- 
do, e as regras de formação de instru- 
cões são aplicadas da mesma maneira. 
As vezes, porém, a diferença entre as 
tinguagens é tão grande, que o aprendiz 
se vê forçado a abrir mão das regras que 
conhece e adotar um outro raciocinio. 

A linguagem LOGO, por exemplo, 
examinada em artigos anteriores, foi 
projetada para facilitar ao máximo a in- 
trodução de iniciantes ao mundo da pro- 
gramação. Entretanto, para quem foi 
“criado” em BASIC — como a maio- 
ria dos usuários de micros pessoais —, 
a adaptação pode apresentar problemas. 
Algumas vezes, chega a ser difícil acei- 
tar as afirmativas de que LOGO foi fei- 
to para principiantes! 

Isso ocorre, fundamentalmente, por- 
que o LOGO tem uma estrutura inter- 
na bastante diferente da do BASIC, em- 
bora seu vocabulário seja mais simples. 
LOGO é uma linguagem mais bem es- 
truturada, e trabalha com listas hierár- 
quicas, como o LISP, Essas caracteris- 
ticas estimulam o programador inician- 
te a adotar padrões estruturados de ra- 
ciocínio e de resolução de problemas. 


A programação estruturada também 
é um aspecto importante de uma lingua- 
gem imperativa, o Pascal. Como vimos 
no artigo da página 1288, ele faz parte 
da família de linguagens algoritmicas e 
declarativas iniciadas com o ALGOL, 
Sua filosofia pode parecer totalmente 
estranha ao programador BASIC. Ain- 
da que experiente, este está acostuma- 
do a elaborar programas no teclado, tes- 
tando e alterando seções à medida que 
progride, até chegar a um resultado que, 
muitas vezes, evidencia um objetivo não 
muito claro no começo do trabalho. O 
Pascal só lhe parecerá menos complica- 
do se ele tiver desenvolvido hábitos de 
programação estruturada — em BASIC 
ou outra linguagem. 

Por que então dar-se ao trabalho de 
aprender Pascal? Além de permitir a ela- 
boração de programas mais bem estru- 
turados e de simplificar a documenta- 
ção e a execução de testes, essa lingua- 
gem apresenta certas vantagens sobre o 
BASIC. Em programas muito comple- 
xos, o Pascal produz um código mais 
claro e curto. A facilidade em definir 
procedimentos possibilita a programa- 
ção modular e a formação de bibliote- 
cas de procedimentos, que podem ser 
aproveitados integralmente em outros 
programas. Finalmente, as versões mo- 
dernas do Pascal são adequadas tanto 
para programação científica (cálculos 
matemáticos) quanto para o desenvol- 
vimento de aplicações comerciais. 





Muitos consideram o Pascal como a 
melhor alternativa para o BASIC. 

Com seus poderosos recursos, podem-se 
elaborar programas bem estruturados 

e fáceis de documentar e testar. 





FUNDAMENTOS DO PASCAL 





O Pascal foi criado em 1970 pelo pro- 
fessor Niklaus Wirth, do Instituto Fe- 
deral de Tecnologia em Zurique, Suiça. 
Seu nome é uma homenagem a Blaise 
Pascal, filósofo e matemático do sécu- 
lo XVII, responsável por importantes 
descobertas científicas e inventor de uma 
das primeiras máquinas de calcular me- 
cânicas, a Pascalina. 

O objetivo de Wirth era desenvolver 
uma linguagem destinada a ensinar os 
conceitos fundamentais de estruturas de 
programação. Essa linguagem deveria 
estimular o estudante a elaborar a estru- 
tura do programa antes de começar a 
escrevê-lo. Nela Wirth introduziu uma 
série de recursos a fim de permitir que 
a solução programada contenha a pro- 
pria informação a ser processada. 

Em outras palavras, para se escrever 
um programa em Pascal é necessário 
planejar como resolver o problema. A 
solução escolhida é refinada sucessiva- 
mente, cobrindo detalhes cada vez me- 
nores, até se alcançar o nivel de um pro- 
cedimento (unidade algoritmica). SO se 
trabalha no programa principal depois 
que todos os procedimentos necessários 
estiverem programados. 

Para desenvolver o Pascal, Wirth uti- 
lizou muitas das idéias em que se baseia 
o ALGOL 606. Originalmente orienta- 
do para o ensino de linguagens estrutu- 
radas em computadores de grande por- 
te, o PASCAL foi adaptado para uso em 
microcomputadores. Hoje, é extensa- 
mente empregado tanto no ensino quan- 
to em aplicações comerciais em micros. 


PASCAL PARA MICROS 





Existem versões do Pascal para diver- 
sas linhas de micros pessoais e profissio- 
nais. As versões reduzidas (que não têm 
todos os comandos do Pascal padroni- 
zado), chamadas Tiny-Pascal, podem 
ser carregadas de fita cassete. Porém, o 
Pascal é mais eficiente quando usado 
com sistemas baseados em disco, como 
o UCSD Pascal, para o Apple. 

Como são muitas as versões comer- 
ciais dessa linguagem, não forneceremos 








listagens específicas para cada linha de 
microcomputador — como fizemos pa- 
ra o BASIC e o LOGO. Mas, mesmo 
que não tenha um compilador Pascal, 
não se preocupe: você poderá entender 
os elementos básicos da linguagem, sem 
precisar rodar o programa em um com- 
putador. Afinal, o desenvolvimento de 
programas longe da máquina é uma das 
principais características do Pascal. 

Existe outra diferença fundamental 
entre o BASIC usado em microcompu- 
tadores pessoais e o Pascal: ele é uma 
linguagem compilada. 

O BASIC adotado na maioria dos 
micros é uma linguagem interpretada — 
cada vez que o interpretador encontra 
uma instrução em BASIC, converte-a 
para códigos de máquina e a executa. 
Assim, para um laço simples como: 


10 FOR N=1 TO 100 
20 PRINT N 
30 NEXT, N 


cada declaração nas linhas 10 a 30 sera 
traduzida cem vezes para código de má- 
quina! Não surpreende, portanto, que 
o BASIC seja considerado uma lingua- 
gem lenta. Outra desvantagem é que o 
interpretador precisa permanecer na me- 
mória o tempo todo, ocupando um es- 
paço valioso, que poderia ser utilizado 
pelo programa ou dados do usuário. 

Uma linguagem compilada funciona 
de maneira diferente. Uma vez que se te- 
nha entrado o programa na máquina, na 
forma de um texto (o programa-fonte), 
ele é traduzido de uma vez só para có- 
digo de máquina (o programa-objeto), 
e é este que o computador executa. De- 
pois de feita a tradução, o programa 
compilador não é mais necessário, fican- 
do armazenado em fita ou disco. Em 
consequência, mais espaço na memória 
é liberado para uso do programa apli- 
cativo desenvolvido pelo usuário. 

As linguagens compiladas são muito 
mais rápidas que as interpretadas, pois 
o demorado processo de tradução para 
código de máquina é executado apenas 
uma vez. Embora existam compiladores 
para o BASIC, essa linguagem não foi 
projetada para ser compilada; assim, 
seus programas-objeto são longos e, fre- 
quentemente, tão lentos quanto o 
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programa-fonte. O Pascal, ao contrário, 
foi projetado especificamente para ser 
compilado, permitindo a obtenção de 
programas tão compactos e rápidos 
quanto os escritos diretamente em As- 
sembler. E há uma vantagem adicional: 
é mais simples desenvolver um progra- 
ma em Pascal do que em Assembler. 

O Pascal apresenta, portanto, um 
equilíbrio bem satisfatório entre veloci- 
dade de desenvolvimento e de execução. 
Somente o €, uma linguagem semelhan- 
te a ele em estrutura e filosofia, apre- 
senta maior eficiência. 





PROJETO ALGORÍTMICO 


Como vimos, a programação em 
Pascal requer uma fase inicial de proje- 
to, antes de se chegar à máquina. Nessa 
fase, utilizam-se certas ferramentas de 
planejamento que ainda não discutimos 
em INPUT, entre as quais o fluxogra- 
ma. Este deve ser usado com cautela, 
pois, em si, não é estruturado. Uma fer- 
ramenta mais conveniente para O pro- 
jeto de programas é o algoritmo: um de- 
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talhamento passo a passo do método a 
ser empregado na solução do problema. 

Um exemplo familiar de um algorit- 
mo é a receita culinária: ela contém to- 
da a informação necessária para repro- 
duzir um certo prato. Um programa fi- 
nalizado tem, igualmente, toda a infor- 
mação de que o computador precisa pa- 
ra resolver um problema ou realizar uma 
tarefa de um determinado modo. 

Entretanto, o programador (ou o co- 
zinheiro), quando começa a escrever um 
programa (ou a receita), não tem uma 
idéia bem definida sobre o procedimen- 
to a seguir para chegar ao objetivo de- 
sejado. Como exemplo, vamos analisar 
o processo de elaboração de uma receita 
de torta. Em uma primeira tentativa, 
poderíamos dividir a tarefa (ou algorit- 
mo inicial) em quatro passos: 


1. Preparar a massa 

2. Preparar o recheio 

3. Colocar tudo numa fôrma 
4. Assar a torta 


Ao fazer uma torta, talvez você não 
precise cumprir todos os passos (é pos- 
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sível comprar a massa pronta, por exem- 
plo!). Suponhamos, porém, que o com- 
putador é um '“'cozinheiro amador”, 
que deve conhecer cada detalhe. 

A próxima etapa consiste em fazer a 
subdivisão dos passos em operações me- 
nores — processo denominado refina- 
mento gradativo. Você encontrará esse 
conceito na metodologia de desenvolvi- 
mento de programas muito extensos, 
que não podem ser projetados de uma 
só vez. No nosso exemplo, refinando o 
passo 1, teriamos: 


1.1 - Pesar a farinha 

1.2 - Pesar a manteiga 

1.3 - Misturar a manteiga com a farinha 
1.4 - Adicionar água 

1.5 - Mexer 


Poderíamos refinar ainda mais cada 
passo, até chegarmos a um nível de sim- 
plicidade tal que fosse possível a qual- 
quer um fazer uma torta. 

O principal, nesse processo, foi ter- 
mos considerado previamente todos os 
passos da solução do problema, em vez 
de iniciarmos a tarefa em um ponto 
qualquer, ao acaso. Para a programa- 
ção em Pascal, o método a ser seguido 
é muito similar. No estágio inicial, es- 
creve-se cada passo em português mes- 
mo. Refinando-os sucessivamente, che- 
ga-se à formalização proporcionada por 
uma declaração ou instrução em Pascal. 
Separados do algoritmo inicial, os pas- 
sos podem ser representados por proce- 
dimentos ou funções. Estes são poste- 
riormente reunidos em um programa 
só. Mas como escrever um programa 
em Pascal sem conhecer os comandos 
dessa linguagem? Examinemos alguns 
exemplos. 


UM PROGRAMA EM PASCAL 





Os programas em Pascal costumam 
parecer complicados demais em relação 
à simplicidade da tarefa a cumprir. Ve- 
ja, por exemplo, este programa, que so- 
ma dois números e exibe o resultado: 


program exemplo (input, output); 
var nl,n2,resultado: integer; 
begin 
read (nl,nZ); 
resultado:=nl+n2: 
writeln (resultado) 
end. 


Como se pode notar, o programa é 
mais longo que um equivalente em BA- 
SIC, embora de execução mais rápida, 
Quanto maior a complexidade da tarefa, 
porém, maiores a economia e concisão 
oferecidas por um programa em Pascal. 


O programa anterior poderia resul- 
tar de um algoritmo inicial como: 


1. Estabeleça as condições iniciais 
2. Inicie o procedimento 

3. Entre os números 

4. Acrescente os numeros 

5. Imprima o resultado 

6. Termine o procedimento 


O programa segue rigorosamente o 
algoritmo. Observe que é necessário de- 
clarar explicitamente os passos 1, 2e 6 
— ou seja, precisamos especificar o que 
é trabalhado pelo programa, quando 
iniciá-lo e quando encerrá-lo. 

Este é um dos fatores que explicam 


a maior extensão de um programa escri-, 


to em Pascal em relação a um equiva- 
lente em BASIC. Vamos agora analisar 
o programa linha por linha: 


program exemplo (input,output); 


significa que o programa terá entradas 
(input) e saídas (output) e se chamará 
exemplo. Se ele não precisasse ler dados 
externos, bastaria escrever: 


program exemplo (output); 


O ponto e virgula no final de uma li- 
nha indica o fim de uma declaração. 

As características de todas as variá- 
veis usadas por um programa em Pas- 
cal devem ser especificadas. A linha: 


var nl,n2?,resultado:integer; 


informa que usaremos três variáveis 1n- 
teiras (integer): nl, n2 e resultado. 

Feitas as declarações, assinalamos o 
início do procedimento propriamente di- 
to, com a palavra begin. Note agora que 
o texto do programa é recuado em rela- 
ção à linha anterior. Este é um recurso 
muito usado em programas estrutura- 
dos, pois indica para quem lê quais são 
as declarações dentro de um procedi- 
mento ou laço de repetição. 

A leitura dos dados pelo teclado é 
muito semelhante à do BASIC: read 
(nl,n2). Só podemos usar aqui esses no- 
mes de variáveis porque elas foram de- 
claradas antes, em var. 

A declaração aritmética também é se- 
melhante a uma instrução em BASIC: 
resultado:=nl+n2; 


O símbolo de atribuição := foi as- 
sim definido para evitar a confusão cau- 
sada pelo = do FORTRAN e do BA- 
SIC, que dá a impressão errônea de se 
tratar de uma fórmula matemática. 

Finalmente, escrevemos o resultado: 


writeln (resultado) 


que tem um efeito semelhante ao 


PRINT RESULTADO de um programa 
em BASIC. Não há ponto e vírgula no 
final da linha, pois a declaração seguinte 
é um end. Alguns compiladores permi- 
tem o uso desse sinal desde que se colo- 
que uma linha em branco depois. 

O Pascal conta, naturalmente, com 
vários outros comandos e funções, ad- 
mitindo também a introdução de notas 
e comentários no programa, entre cha- 
ves: 'e!, Com os microcomputadores que 
não têm essas teclas, pode-se utilizar 
uma combinação de parênteses com as- 
teriscos (* e *). 





EDIÇÃO DO PROGRAMA 


O processo de edição e teste de pro- 
gramas em linguagem compilada, como 
o Pascal, não é tão direto como com um 
interpretador. Normalmente, edita-se 
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apenas o programa-fonte, com o auxi- 
lio de um editor de linhas (quase sem- 
pre disponível como um utilitário do sis- 
tema operacional) ou de um processa- 
dor de textos. Depois, compila-se o pro- 
grama e testa-se o resultado, executan- 
do-o. Caso se verifique algum erro, to- 
do o processo deve ser repetido, a par- 
tir do programa-fonte. 

Alguns compiladores Pascal, como o 
UCSD e o Turbo-Pascal, dispõem de 
um editor próprio, o que evita esse vai- 
vêm entre editor, sistema operacional e 
compilador. Nesse caso, tanto o progra- 
ma-fonte quanto o programa-objeto po- 
dem residir na RAM enquanto durar o 
processo, agilizando-o muito — se o 
programa não for muito longo, e se 
houver boa capacidade de memória. 

Como está em linguagem de máqui- 
na pura, sem comentários, rótulos, ou 
similares, o programa compilado ofere- 
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ce a vantagem final de inviabilizar a 
ação de “espiões”. Assim, depois de 
editar um programa em Pascal, você po- 
derá ter a certeza de que ninguém copia- 
ra os algoritmos de sua criação. 





PROGRAMAS DISPONIVEIS 


Existem compiladores Pascal para a 
maioria das linhas de microcomputado- 
res. Entretanto, como já mencionamos, 
eles variam muito entre si, quanto ao 
funcionamento e desempenho, e nem to- 
dos podem ser encontrados com facili- 
dade no Brasil. Antes de adquirir um 
programa desse tipo, convém fazer uma 
pesquisa em diferentes ''software hou- 
ses” — de preferência nas especializa- 
das em uma determinada linha de com- 
putadores ou nas dedicadas exclusiva- 
mente à programação Pascal, 
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O uso mais sério do Pascal requer 
componentes mais caros, exigindo, no 
mínimo, um acionador de disquetes. Por 
isso, máquinas como o Apple e a IBM- 
PC contam com as melhores versões. 


O compilador Pascal para o Spec- 
trum é exclusivo para microdrives e dis- 
quetes (não disponíveis no Brasil). In- 
clui um editor de linhas, um gerador de 
números aleatórios e suporte gráfico em 
alta resolução. 


tea 


Existem diversas versões do Pascal 
para o TRS-Color. Suas características 
variam conforme o sistema operacional 
utilizado: Flex, RS-DOS (original) ou 
OS-9 (semelhante ao Unix). Todas fun- 
cionam somente em micros dotados de 
acionadores de disquetes. 


Esse micro dispõe de duas versões do 
Pascal: um compilador que roda sob o 
sistema operacional TRSDOS e compa- 
tiveis, é outro, semelhante ao Turbo 
Pascal, que roda sob o sistema opera- 


cional CP/M. Ambas são bastante com- 
pletas, mas não incluem suporte gráfico. 
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As duas versões mais utilizadas de 
Pascal para as máquinas compatíveis 
com a linha Apple são o UCSD e o 
Turbo-Pascal. O UCSD (abreviatura da 
umversidade onde foi desenvolvida: 
University of California at San Diego) 
foi o primeiro e mais popular sistema 
Pascal (p-System). Trata-se, na realida- 
de, de um sistema operacional comple- 
to, que substitui o DOS, e não apenas 
de um compilador. 

Já o Turbo-Pascal roda sob o sistema 
operacional CP/M (Control Program for 
Microcomputers), que pode ser coloca- 
do em um Apple quando se troca a UCP 
por um microprocessador Z-B0. 


O Pascal para o MSX é do tipo Mi- 
crosoft e destina-se a máquinas dotadas 
de acionador de disquetes de 5.25 ou 3.5 
polegadas, rodando sob o sistema ope- 
racional MSX-DOS ou compatível. 





















FORMATAÇÃO 


DE VALORES 


Se você tem problemas com a formatação 
de saída para valores monetários, 
poderá encontrar aqui uma boa solução: 
o uso de duas eficientes rotinas 

no lugar do comando PRINT USING. 


O comando PRINT USING é um dos 
recursos mais poderosos do BASIC de 
algumas linhas de computadores, como 
o TRS-80, o TRS-Color e o MSX. Com 
ele, podemos formatar de diferentes ma- 
neiras a saída de números e cadeias al- 
fanuméricas. Porém, esse comando apre- 
senta inconvenientes, sobretudo quanto 
à formatação de valores monetários. 

No Brasi!, usam-se variáveis de pre- 
cisão dupla (quinze dígitos) para repre- 
sentar valores monetários, pois a preci- 
são simples não nos permite lidar com 
valores superiores a 10 milhões de cru- 
zados. E o PRINT USING, infelizmen- 
te, é muito lento quando se trata de for- 
matar variáveis de precisão dupla. 

Além disso, não é possível utilizar o 
PRINT USING dos computadores men- 
cionados para formatar valores mone- 
tários segundo a convenção brasileira, 
que impõe a separação dos milhares por 
pontos e dos centavos por virgulas. 

As funções que explicamos neste ar- 
tigo oferecem várias alternativas para a 
formatação de valores, e são muito mais 
rápidas (três a seis vezes) do que O 
PRINT USING normal. 





FORMATAÇÃO COM PARENTESES 


Esta rotina permite a formatação de 
valores monetários segundo as conven- 


ções dos balanços contábeis: com os nú- 
meros negativos entre parênteses: 


LO DEF FNNS (Vt,Et)=RIGHTS (STRIN 

GS(Et,” ")J+LEFTS(" (” ,ABS(VESO)) 

+LEFTS (” ",ABS(V4>=0)) +MIDS (STR 

S(Vt),2), EX) +LEFTS(”")",ABS(VASO 

JJ+LEFTS(” ",ABS(Vt=>0)) 

100 INPUT 
E t 


"Numero de colunas : 


110 INPUT "Valor “;Vi 
120 PRINT FNNS(Vt,E%):GOTO 110 


A função FNES, estabelecida na linha 
10, tem dois argumentos: V &, um va- 
lor monetário em precisão dupla (pode 
incluir centavos ou não), e EYo, um va- 
lor inteiro que especifica o número de 
colunas a usar na formatação (com jus- 
tificação à direita). As linhas 100 e 120 
formam um laço simples de teste. 

O BASIC das máquinas mencionadas 
é capaz de definir em apenas uma linha 
expressões de grande complexidade 
inclusive expressões condicionais que 
imitam a operação de um IF...THEN. 
Observe, por exemplos a expressão: 


LEFTS(" ("ABS (VÊESO)) 





Pode parecer estranho utilizar um ope- 
rador de comparação (sinal de menor) 
dentro de uma expressão matemática. 
Mas podemos compreender sua função 
se levarmos em conta que o resultado nu- 
mérico de uma expressão lógica é igual 
a -1 (ou |, em alguns computadores), 
se ela for verdadeira, e a 0, se for falsa. 
Assim, se V% for menor que O, a ex- 
pressão anterior resultará em um string 
contendo um parêntese à esquerda — 
LEFTS('(",1). A linha 10 concatenará es- 
se parêntese (se o número for negativo) 
ou um espaço em branco (se o número 
for positivo) à cadeia de saida. A expres- 
são LEFTS ("'”, ABS (V$ > 0)) se en- 
carrega da operação, que depois é repe- 
tida para o parêntese direito. 
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Examinaremos agora uma função ca- 
paz de formatar valores usando pontos 
e vírgulas, segundo a convenção bancá- 
ria brasileira, Símbolos especiais repre- 
sentarão números positivos (créditos) e 
números negativos (débitos). 

Como essa função é mais complexa, 
definiremos uma sub-rotina: 


110 INPUT "Numero de colunas "; 
Et 

120 INPUT "Caractere de preench 
imento ";B5S 

130 INPUT "Simbolo p/valor posi 
tivo ":PS 

140 INPUT "Simbolo p/valor nega 
tivo ":NS 


Rm»... | 


O PRINT USING 
VALORES MONETÁRIOS 
FORMATAÇÃO 

COM PARÊNTESES 


IN 
[e] 
Bá 
O a o PA 
E UMA ROTINA PODEROSA 
150 INPUT "Valor “;Vt 

160 GOSUB 1000:PRINT SS:COTO 15 
à) 

1000 I$=MIDS (STRS(FIX(V4)),2):F 
$=MIDS (STARS (INT (100* (VA-FIX (VE) 
O e 46 DDS SE cado 

1010 IF LEN(IS)<=3 AND VAL(F$S)> 
O THEN S5=15+55+","+FS:GOTO LU03 
[é 

1015 IF LEN(I5S)<=3 AND VAL(FS)= 
O THEN SS=I5+SS5:GOTO 1030 

1020 5$="."+RIGHTS(15,3)+55:13= 
LEFTS (IS,LEN(I$)-3):GOTO 1010 
1030 IF V4<O THEN X5=NS ELSE HS 
=P5S 

1040 SS=RIGHTS (STRINGS (E$,B5)+5 
S+X5,Et%t) :RETURN 


Os argumentos de entrada são: VA, 
valor monetário em precisão dupla (in- 
cluindo centavos ou não, após o ponto); 
E%, número de colunas para formata- 
ção: BS, caractere de preenchimento à 
esquerda (asteriscos, zeros ou um espa- 
ço em branco); P$ e N$, simbolos à di- 
reita do valor, para indicar créditos e de- 
bitos, respectivamente. O string de sai- 
da retorna em S$. As linhas 110 a 160 
testam a sub-rotina. 

Na linha 1000, V& é quebrado em 
dois valores inteiros, correspondentes 
aos cruzados e aos centavos. Esses va- 
lores são armazenados em duas cadeias, 
IS e F$, respectivamente. 

As linhas 1010 e 1015 verificam se IS 
tem três ou menos dígitos (um valor 
igual ou menor que 999 cruzados), e 
se existe um valor em centavos 
(VAL(F$)>0). Conforme o resultado 
dos dois testes, a rotina termina, saltan- 
do para a linha 1030, que concatena O 
símbolo adequado para créditos e debi- 
tos ao final de 8$, A linha 1040 enqua- 
dra o string S$ de saída dentro de E 
espaços. O laço formado pela linha 1020 
reduz progressivamente o tamanho de 
I$, separando cada grupo de três digi- 
tos por um ponto, até que LEN(IS) seja 
menor ou igual a 3. 

Entre as aplicações dessa rotina, 
inclui-se o preenchimento de cheques — 
os caracteres de proteção de campo são 
colocados à esquerda do valor. Se qui- 
ser adicionar um cifrão (ou o símbolo 
Cz$) entre os caracteres de proteção e 
o valor numérico, na linha 1000 da ro- 
tina, que inicializa S$, substitua a ex- 
pressão S$="” por S$=""CzS”. 
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O Diário de Anne Frank 


emocionou ma es. 
Eerasóuma | 


4 t a SO 
ISTOTIA. 
Apr Frank é lembrada 
como símbolo do 
extermínio de milhões de 
judeus. Seu drama e o de sua 
família são vistos agora 
de um ângulo diferente, o 
da mulher holandesa que 
ajudou os Frank durante os 
dois anos que passaram feaR de ge 
escondidos dos nazistas num Em 
sótão de Amsterdã, e que 4 
se tornou o único do entre ME 
eles eo mundo exterior. Gm 
É com tocante simplicidade W 
que esta história triste 
— o “outro lado” do Diário 
de Anne Frank — é contada 
neste livro, poderoso 
testemunho da coragem de 
que é capaz o ser humano, 


mesmo nos momentos sombrios 
da História. — Isaac Bashevis Singer, Prêmio Nobel de Literatura de 1978 
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Magnificamente escrito por uma pessoa devotada ao ser 
humano. Seu estilo simples cativa o leitor. Um livro recomendável 
aos que se preocupam com os rumos do mundo.” 
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